perm filename TRPT[MUS,LCS] blob
sn#063097 filedate 1974-01-08 generic text, type T, neo UTF8
06700 ARRAY F1,F2(512); <F1 WILL BE DEFINED BY SCORE.
06800 SYNTH(F2);1 1 999;
06810 SEG(F1);0 1 1 3 .6 7 .6 90 0 100;
06900 COMPILE;
07000 INSTRUMENT TRPT;
07100 OSCIL(P4,MAG/P2,P5);<P9 IS DUR. OF ENV.
07200 INTRP(P6*P8*MAG,P7*P8*MAG,P5); <P6 AND P7 ARE MOD. INDEX 1 AND 2
07300 COSCIL(U2,P8*MAG,F2); <P8 IS MOD. FREQ.
07400 COSCIL(U1,P3*MAG+U3,F2);
07500 OUTA←OUTA+U4;END;
07600 FINISH;
07800 PLAY;TRPT 0 .2 A 2000 F1 .5 6 G;FINISH;